-- background: 2686 from stack: in
-- bmap block id: 2231
-- flags: 0000
-- background id: 0
-- name: Software Librarian
----- HyperTalk script -----
on newCard
  get field "diskNumber" of previous card
  add one to it
  put it into field "diskNumber"
end newCard

on openBackground
  push recent card
end openBackground


-- part 5 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=447 top=299 right=339 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=368 top=264 right=289 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=396 top=264 right=289 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=360 top=300 right=338 bottom=405
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort Disks
----- HyperTalk script -----
on mouseUp
  if the name of this stack contains "stack ideas"
  then
  show card field 1  -- explain why not sort here
else
  answer "Sort all cards of this stack according to:" with "Name" or "Number" or "Cancel"
  if it is "Name"
  then sort by first word of first line of field "Label"
else if it is "diskNumber"
then sort by field "diskNumber"
end if
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=21 top=299 right=340 bottom=68
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=460 top=263 right=291 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=277 top=300 right=338 bottom=325
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  global key
  ask "Enter name or word you're looking for:" with key
  if it is not empty then
    go to next card
    find it
    put it into key
  end if
end mouseUp



-- part 22 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=307 top=75 right=250 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 24 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=183 top=299 right=341 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 1006 / 1006
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  Talk"dew Huew reelee want2 kwit highpercard?",175,125
  answer "Do You Really Want To Quit HyperCard?" with "Yes" or "No"
  if it is "No" then exit mouseUp
  visual dissolve
  doMenu "Quit HyperCard"
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=101 top=299 right=339 bottom=154
-- title width / last selected line: 65535
-- icon id / first selected line: -6047 / 59489
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add to home
----- HyperTalk script -----
on mouseUp
  answer "Install Software button on Home card?" with "OK" or "Cancel"
  if it is "Cancel" then
    exit mouseUp
  end if
  set lockmessages to true
  choose button tool
  click at location of me
  doMenu Copy Button
  go home
  doMenu Paste Button
  set the name of button "add to home" to "Software"
  set loc of button "Software" to 358,250
  play harpsichord "ee c"
  answer "Drag the Software button to the desired location"
  wait until the mouse is down
  set hilite of button "Software" to true
  repeat until the mouse is up
    set loc of button "Software" to the mouseLoc
  end repeat
  set hilite of button "Software" to false
  set script of button "Software" to empty
  set script of button "Software" to "on mouseUp" && return && "visual effect iris open" && return && "go to stack Software" && return && "end mouseUp"
  choose browse tool
  go back
  play harpsichord "ee c"
  set lockmessages to false
end mouseUp



-- part 27 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=288 top=29 right=49 bottom=353
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: time


-- part 28 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=426 top=29 right=49 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 16384
-- line height: 13
-- part name: date


-- part 29 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=113 top=25 right=47 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  Talk"wellcome to the Software Lyybrarian",175,120
end mouseUp